home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12b.lzh / Include / Devices / Audio.i next >
Text File  |  1990-08-27  |  1KB  |  52 lines
  1. {
  2.     Audio.i for PCQ Pascal
  3. }
  4.  
  5. {$I "Include:Exec/IO.i"}
  6.  
  7. const
  8.  
  9.     AUDIONAME        = "audio.device";
  10.  
  11.     ADHARD_CHANNELS    = 4;
  12.  
  13.     ADALLOC_MINPREC    = -128;
  14.     ADALLOC_MAXPREC    = 127;
  15.  
  16.     ADCMD_FREE        = CMD_NONSTD + 0;
  17.     ADCMD_SETPREC    = CMD_NONSTD + 1;
  18.     ADCMD_FINISH    = CMD_NONSTD + 2;
  19.     ADCMD_PERVOL    = CMD_NONSTD + 3;
  20.     ADCMD_LOCK        = CMD_NONSTD + 4;
  21.     ADCMD_WAITCYCLE    = CMD_NONSTD + 5;
  22.     ADCMDB_NOUNIT    = 5;
  23.     ADCMDF_NOUNIT    = 32;
  24.     ADCMD_ALLOCATE    = ADCMDF_NOUNIT + 0;
  25.  
  26.     ADIOB_PERVOL    = 4;
  27.     ADIOF_PERVOL    = 16;
  28.     ADIOB_SYNCCYCLE    = 5;
  29.     ADIOF_SYNCCYCLE    = 32;
  30.     ADIOB_NOWAIT    = 6;
  31.     ADIOF_NOWAIT    = 64;
  32.     ADIOB_WRITEMESSAGE    = 7;
  33.     ADIOF_WRITEMESSAGE    = 128;
  34.  
  35.     ADIOERR_NOALLOCATION    = -10;
  36.     ADIOERR_ALLOCFAILED        = -11;
  37.     ADIOERR_CHANNELSTOLEN    = -12;
  38.  
  39. type
  40.     IOAudio = record
  41.     ioa_Request    : IORequest;
  42.     ioa_AllocKey    : Short;
  43.     ioa_Data    : Address;
  44.     ioa_Length    : Integer;
  45.     ioa_Period    : Short;
  46.     ioa_Volume    : Short;
  47.     ioa_Cycles    : Short;
  48.     ioa_WriteMsg    : Message;
  49.     end;
  50.     IOAudioPtr = ^IOAudio;
  51.  
  52.